FUNC FUN; < F1, F2, F3, F4, F5, F6 
COMMON TOOT   TOOT CLAR BRIT BUZZ; 
COMMON REVRB;  
 
  < 13   .SCR  --  RANDOM NUMBER=     1
 PLAY;
 REVRB    0.000   12.000
;PRINT P1;< REVRB   1
 CLAR     0.000    0.308 261.626   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   0.000  13.000
;PRINT P1;< CLAR    1
 CLAR     0.308    0.308 275.954   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   1.000
;PRINT P1;< CLAR    2
 CLAR     0.616    0.308 291.067   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   2.000
;PRINT P1;< CLAR    3
 CLAR     0.924    0.307 307.007   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   3.000
;PRINT P1;< CLAR    4
 CLAR     1.231    0.308 323.821   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   4.000
;PRINT P1;< CLAR    5
 CLAR     1.539    0.308 341.555   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   5.000
;PRINT P1;< CLAR    6
 CLAR     1.847    0.307 360.261   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   6.000
;PRINT P1;< CLAR    7
 CLAR     2.154    0.308 379.991   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   7.000
;PRINT P1;< CLAR    8
 CLAR     2.462    0.308 400.801   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   8.000
;PRINT P1;< CLAR    9
 CLAR     2.770    0.307 422.752   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   9.000
;PRINT P1;< CLAR   10
 CLAR     3.077    0.308 445.904   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000  10.000
;PRINT P1;< CLAR   11
 CLAR     3.385    0.308 470.325   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000  11.000
;PRINT P1;< CLAR   12
 CLAR     3.693    0.307 496.083   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000  12.000
;PRINT P1;< CLAR   13
 CLAR     4.000    1.000 523.251   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000  13.000
;PRINT P1;< CLAR   14
 FINISH; < 13   .SCR